home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / SICL / data1.cab / sicl32 / vb / samples / misc / nonfmt.bas < prev    next >
Encoding:
BASIC Source File  |  2001-03-02  |  947 b   |  38 lines
  1. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  2. '  nonfmt.bas
  3. '  The following subroutine measures AC voltage on a  
  4. '  multimeter and prints out the results.
  5. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  6. Sub Main ()
  7.    Dim dvm As Integer
  8.    Dim strres As String * 20
  9.    Dim actual As Long
  10.  
  11. '  Open the multimeter session
  12.    dvm = iopen("hpib7,16")
  13.    Call itimeout(dvm, 10000)
  14.  
  15. '  Initialize dvm
  16.    Call iwrite(dvm, "*RST" + Chr$(10), 5, 1, 0&)
  17.  
  18. '  Set up multimeter and take measurements
  19.    Call iwrite(dvm, "CALC:DBM:REF 50" + Chr$(10),16,1, 0&)
  20.    Call iwrite(dvm, "MEAS:VOLT:AC? 1, 0.001" + Chr$(10),23,1, 0&)
  21.  
  22. '  Read measurements 
  23.    Call iread(dvm, strres, 20, 0&, actual)
  24.  
  25. '  Print the results
  26.    Print "Result is " + Left$(strres, actual)
  27.  
  28. '  Close the multimeter session
  29.    Call iclose(dvm)
  30.  
  31. '  Tell SICL to cleanup for this task
  32.    Call siclcleanup
  33.  
  34.    Exit Sub
  35.  
  36. End Sub
  37.  
  38.